Unit
lmddbbtn

Declaration

TLMDOnCustomBtnClick = procedure (Sender : TObject;index : Integer) of object;